/* rqidf.p    - REQUISITIONS UTILITY TO GET/PUT UI KEY FIELDS                 */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/*V8:ConvertMode=NoConvert                                                    */
/* Revision: 8.6    LAST MODIFIED BY: 05/05/97  By: B. Gates          *J1Q2*  */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00 BY: *N0KP* myb                    */


     {mfdeclre.i}


         define input parameter p_action as character no-undo.
     define input parameter p_field_name as character no-undo.
     define input-output parameter p_field_value as character no-undo.

     define variable temp_hdl as handle no-undo.
     define variable rqidfp_hdl as handle no-undo.

     /*LOOK FOR OUR PERSISTENT DATA STORE PROGRAM.
     IF NOT FOUND, START IT*/


         temp_hdl = session:first-procedure.
     rqidfp_hdl = ?.

     do while temp_hdl <> ?:
            if index(temp_hdl:file-name,"rqidfp.") > 0 then do:
           rqidfp_hdl = temp_hdl.
           leave.
        end.

        temp_hdl = temp_hdl:next-sibling.
     end.

     if rqidfp_hdl = ? then do:
        {gprun.i ""rqidfp.p"" " " "persistent set rqidfp_hdl"}
     end.

     run get_put in rqidfp_hdl
     (input p_action, input p_field_name, input-output p_field_value).
